﻿Public Class TraCuuHV
    Inherits DataProvider

    Public Function dtload() As DataSet
        Dim sql = "SELECT * FROM HangVe"
        Return Me.GetDT(sql)
    End Function

    Public Function delhv(ByVal mahv As Integer) As Integer
        Dim sqlstr As String = "DELETE FROM HangVe WHERE ID=" + mahv.ToString
        Return Me.SaveData(sqlstr)
    End Function

    Public Function Findhk(ByVal dtohk As DTO.TraCuuHV) As DataSet
        Dim sqlstr As String = "SELECT * FROM HangVe WHERE Ten Like '%" + dtohk.tenhv + "%' AND GhiChu LIKE '%" + dtohk.ghichu + "%'"
        Return Me.GetDT(sqlstr)
    End Function
End Class
